home *** CD-ROM | disk | FTP | other *** search
/ Magic Disk 64 / Magic_Disk_64_89-11_1989_-_de_Side_B.d64 / sp.scroll up (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  1KB  |  41 lines
  1. 0 plot   = 49152 : line    = pl+3  :      clear  = pl+6  : recht   = pl+9
  2. 1 setup  = pl+12 : show    = pl+15 :      mem    = pl+18 : ellipse = pl+21
  3. 2 test   = pl+24 : invert  = pl+27 :      speich = pl+30 : left    = pl+33
  4. 3 right  = pl+36 : hard    = pl+39 :      up     = pl+42 : down    = pl+45
  5. 4 write  = pl+48 : zmem    = pl+51 :      copy   = pl+54 : w2      = pl+57
  6. 5 ssetup = pl+60 : charset = pl+63 :      laden  = pl+66
  7. 10 poke53281,0:poke53280,0:poke646,7
  8. 12 h=peek(53248+17):poke53248+17,0
  9. 15 b$="            ":b$=b$+b$
  10. 20 sys zmem,53248,0,1
  11. 21 print"[147]";:t=8
  12. 22 fori=0to8:poke646,i+5:printtab(t)b$:next
  13. 30 sys se,88,106:sys ss,1,1
  14. 32 b1=32:b2=40
  15. 34 sys me,b1,b2:sysclear:sys in
  16. 35 sys sh,1,1,0,1,0
  17. 36 sys me,b2,b1:sysclear:sys in
  18. 38 poke53248+17,h
  19. 40 x=0:y=41:a=0:b=7:c=8
  20. 42 read an
  21. 50 for d=1toan:read a$
  22. 60 for i=atob
  23. 70 sys ch,c,i+1,i,a:sys wr,x,y,a$
  24. 85 sys up:sys mem,b1,b2:sys co,b2,b1,8
  25. 90 h=b1:b1=b2:b2=h
  26. 100 next
  27. 105 next
  28. 107 restore:goto42
  29. 115 data 10:rem anzahl zeilen
  30. 120 data " scrolling  "
  31. 121 data "------------"
  32. 122 data "            "
  33. 123 data "written by: "
  34. 124 data "            "
  35. 125 data " a.gessler  "
  36. 126 data "            "
  37. 127 data "            "
  38. 128 data "            "
  39. 129 data "            "
  40. 130 data "            "
  41.